home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / amos / amoslist-0195.lzh / AMOSLIST / text0264.txt < prev    next >
Encoding:
Text File  |  1995-02-01  |  3.4 KB  |  127 lines
  1. > I have a few questions about Amos Pro:
  2. > 
  3. > 1) Is there an AGA extension yet?
  4.  
  5. No, only andy churches intuition extension which works for AGA inuition
  6. screens. AGA is to central to AMOS to be fixed from an extension - it needs
  7. an AMOSPro re-write.
  8.  
  9. > 2) Is there any way to read a two-button joystick from either port?
  10. > 
  11.  
  12. Everyone always answers this with "Get hold of sticks extension", but no-one
  13. actually says how to get hold of sticks extension _ I haven't a clue.
  14.  
  15.  
  16. > And a general question about coding:
  17. > 
  18. > What is a good procedure for detecting a "tap" of a fire button and a 
  19. > "press" (button held down)? Right now I have something like
  20. > 
  21. > Procedure TESTHOLDBUTTON[STICK]
  22. > '
  23. > ' STICK is the port number
  24. > '
  25. > X = TRUE
  26. > DELAY = 1200 : ' this is arbitrary
  27. > While X = True
  28. >     X = Fire(STICK)
  29. >     Z = Z + 1
  30. >     If Z > DELAY Then X = False : ' Break out of loop if button held
  31. > too long                     
  32. > Wend
  33. > If Z < DELAY
  34. >     R = False
  35. > Else
  36. >     R = True
  37. > End If
  38. > End Proc[R]
  39. > '
  40. > ' R tells calling procedure whether button was tapped (False) or pressed 
  41. > ' (True).
  42. > '
  43. > 
  44. > This procedure works fine except that when I let go of the pressed button, 
  45. > the procedure registers a press AND a tap. I suspect that it's because 
  46. > 
  47. > a) procedure is called
  48. > b) procedure is exited when "True" is returned, but button is still held
  49. > c) procedure is called and exited again and again...
  50. > d) eventually, Z < DELAY after n number of procedure calls
  51. > 
  52. > Any way to fix this?
  53. > 
  54.  
  55. PROCEDURE TESTHOLDBUTTON[STICK]
  56.    Shared LAST_TIME,START_TIME
  57.  
  58.    If Fire(STICK) 
  59.       If LAST_TIME
  60.      'Button is still held from previous call
  61.         Pop Proc[-1]
  62.       Else
  63.      If START_TIME=0
  64.         'Beginning of a new press
  65.         START_TIME=Timer
  66.         Pop Proc[0]
  67.      Else
  68.         'Button pressed in a previous call, but
  69.         'timeout for a tap has not expired yet
  70.         If Timer-STARTTIME<2000
  71.            'Cant decide which it is yet
  72.            Pop Proc[0]
  73.         Else
  74.            'Decided it is a press
  75.         LAST_TIME=True
  76.         Pop Proc[-1]
  77.         End If
  78.      End If
  79.       End If
  80.    Else
  81.       'Button not pressed.
  82.       If LAST_TIME
  83.      'Just released from a press.
  84.      LAST_TIME=False
  85.      START_TIME=0
  86.      Pop Proc[0]
  87.       Else
  88.      If START_TIME
  89.         'Was a tap
  90.         START_TIME=0
  91.         Pop Proc[1]
  92.      Else
  93.         'Button Never Pressed at all.
  94.         Pop Proc[0]
  95.      End If
  96.       End If
  97.    End If
  98. End Proc
  99.     
  100. This returns:
  101.  
  102.     0 = Nothing as happend / the fire button is pressed, but not
  103.         enough time has passed to tell if it is a tap or press
  104.     1 = A tap has occured
  105.     -1 = A press has occured.
  106.  
  107. It also has that advantage that it doesn't wait in the procedure for
  108. 2000 50ths of a second, but exits immediately.As long as you call it
  109. regularly, there won't be a problem, but if you leave it too long
  110. between calls it might think taps are presses.
  111.  
  112. Note - I haven't tested this - I don't have an amiga handy.
  113.  
  114.  
  115. +-------------------------+------------------------------------+
  116. |                         |    _____                           |
  117. | PAUL HICKMAN            |   /     \   ON A HOT SUMMER NIGHT  |
  118. | (ph@doc.ic.ac.uk)       |  /  O O  \  WOULD YOU  OFFER YOUR  |
  119. | DEPARTMENT OF COMPUTING | |    _    | THROAT  TO  THE  WOLF  |
  120. | IMPERIAL COLLEGE LONDON |  \  / \  /  WITH THE RED  ROSES ?  |
  121. |                         |   \_____/                          |
  122. +-------------------------+------------------------------------+
  123. Machines: Amiga 500  WB1.3 - 1mb Memory - External Disk Drive.
  124.           Amiga 1200 WB3.0 - 6mb Memory - 200Mb Hard Disk.
  125.  
  126.  
  127.